          SUBROUTINE (LOCAL.SLOCS,TEMP.SLOC,ERR.SLOC,IMG.BR.OVRD)
** Version# 3.0001[2] - 09/19/2011 - 03:29pm - SMITJR - eclipse
*** V3.0001 Change - Custom Coding 81259 - 09/19/2011 - SMITJR - eclipse

*-------------------------------------------------------------------------*
*** rountine retrieves information concerning imaging storage locations
*** and branches.  More specifically what image archives are stored
*** locally and what the local temporary archive is.
*-------------------------------------------------------------------------*
*** SUBROUTINE - IMG.LOCAL.GET
***
*** LOCAL.SLOCS -(OUT)- IMG storage locations that are on local network
*** TEMP.SLOC   -(OUT)- The branches local storage location
*** ERR.SLOC    -(OUT)-
*** IMG.BR.OVRD -(IN) - Branch that will override default
***
*** COMMON USED - TTY.DATA , SECURITY
*-------------------------------------------------------------------------*
          *** select a branch to search for image storage location on
            ** if their is a override branch use it
            ** if their is a termanal default branch use it
            ** Finally use the users home branch.
          IF IMG.BR.OVRD THEN IMG.BR = IMG.BR.OVRD ELSE IMG.BR = TTY.DATA<10>
          IF NOT(IMG.BR) THEN IMG.BR = SECURITY<7>

          READV LOCAL.SLOCS FROM CTRBFILE,'IMG.BR.LOCAL.STOR~':IMG.BR,1 ELSE LOCAL.SLOCS = '\\192.168.1.100\exports\msds\'

          READV TEMP.SLOC FROM CTRBFILE,'IMG.TEMP.LOC~':IMG.BR,1 ELSE TEMP.SLOC = '\\192.168.1.100\exports\msds\'
          TEMP.SLOC = TEMP.SLOC<1,1>

          READ ERR.SLOC  FROM CTRLFILE,'IMG.ERROR.LOC' ELSE ERR.SLOC = ''

          RETURN
